From 40547468a9faccd52a03d7ff88dcc82e25f1cdec Mon Sep 17 00:00:00 2001 From: Dave Love Date: Thu, 4 Jan 2001 15:38:41 +0000 Subject: [PATCH] (nnmail-pathname-coding-system): Defvar when compiling. (gnus-make-directory): Require nnmail. --- lisp/gnus/gnus-util.el | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/lisp/gnus/gnus-util.el b/lisp/gnus/gnus-util.el index 4a30d1da0be..061a0610a70 100644 --- a/lisp/gnus/gnus-util.el +++ b/lisp/gnus/gnus-util.el @@ -32,7 +32,10 @@ ;;; Code: (require 'custom) -(eval-when-compile (require 'cl)) +(eval-when-compile + (require 'cl) + ;; Fixme: this should be a gnus variable, not nnmail-. + (defvar nnmail-pathname-coding-system)) (require 'nnheader) (require 'time-date) @@ -531,6 +534,7 @@ Bind `print-quoted' and `print-readably' to t while printing." (defun gnus-make-directory (directory) "Make DIRECTORY (and all its parents) if it doesn't exist." + (require 'nnmail) (let ((file-name-coding-system nnmail-pathname-coding-system)) (when (and directory (not (file-exists-p directory))) -- 2.30.2